
	dim'subs'640''		reserve space for function suutines'


>	PROCEDURE TO TEST INPUT </> OUTPUT       <remark'

	enter'i/o''
sl'	daprt'cr4'i'r'ap'a'ap'ap' ' ''
	iread'a''daprt'tab6'i'p'c'h'ap'a'ap'ap' ' ''ipch'a''

s2'	daprt'cr4'r'e'a'd'ap'a'ap'ap' ' ''
	read'a''daprt'tab6'p'u'n'c'h'ap'a'ap'ap' ' ''punch'a''

s3'	daprt'cr4'4'ap'r'd'f'l'o'ap'a'ap'ap' ' ''
	4'rdflo'a''daprt'tab6'l'0'0'4'ap'd'p'r't'ap'a'ap'ap' ' ''l004'dprt'a''

s4'	daprt'cr4'r'd'h'e'x'ap'a'ap'ap' ' ''
	rdhex'a''daprt'tab6'h'x'p'c'h'ap'a'ap'ap' ' ''hxpch'a''

	daprt'cr4'cr4'cr4''exit''
	end''

	>PROCEDURE TO TEST TRIG FUNCTIONS         <remark'

	enter'trig''
sl'	daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' ' ' 's'i'n' 'a' ' ' ' ' ' ' ' ' ' ' 'c'o'' 'a'
	 ' ' ' ' ' ' ' ' ' ' 't'a'n' 'a' ' ' ' ' ' ' ' 'a'r't'a'n' ','t'a'n' 'a'.'lcl'cr4''

s2'	0'i-'360';'ia''
s3'	machn'pl600''0'flo'ia'/'.5729'57795'e'2';'a''
	sin'a';'sina''cos'a';'cosa''
	sina'/'cosa';'tana''
	artan'tana'x'.5729'57795'e'2';'art''

	600'iprt'ia''daprt' ' ''
	l608'print'sina',,'cosa',,'tana',,'art''
	bkp4'exit''
	for'ia'step'l5'until'360'rpeat's3''
	daprt'cr4'cr4'cr4''exit''
	end''











>	PROCEDURE TO TEST PELL FUNCTIONS       <remark'

	enter'pell''
sl'	daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' ' 's'q'r't' 'a' '
	 ' ' ' ' ' ' ' ' 'l'n' 'a' ' ' ' '
	 ' ' ' ' ' ' ' 'l'o'g' 'a' ' ' ' ' ' ' ' ' ' ' 'e'x'p' 'a' ' '
	 ' ' ' ' ' ' ' 'a' 'p'w'r' '<lcl'.'5'cr4''

s2'	l';'ia''
s3'	machn'pl600''l'flo'ia';'a''
	sqrt'a';'sqrta''ln'a';'lna''log'a';'loga''
	exp'a';'expa''a'pwr'.5''e'0';'roota''

	60l'iprt'ia''daprt' ' ''
	l608'print'sqrta',,'lna',,'loga',,'expa',,'roota''
	bkp4'exit''
	for'ia'step'l'until'25'rpeat's3''
	daprt'cr4'cr4'cr4''exit''
	end''



	>PROCEDURE TO TEST ARITHMETIC ROUTINES        <remark'

	enter'arith''
sl'	daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' 'b' ' ' ' ' ' ' ' ' ' 'a' 'lcl'+'uc2' 'b'
	 ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'-'uc2' 'b' ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'x'uc2'
	 'b' ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'/'uc2' 'b'lcl'cr4''

s2'	0'i-'l6';'ia''
s3'	machn'pl600''ia'i+'3';'ib''
	0'flo'ia';'a''0'flo'ib';'b''
	a'+'b';'a+b''a'-'b';'a-b''
	a'x'b';'axb''a'/'b';'a/b''
	702'dprt'a',,'b''daprt' ' ''
	l608'print'a+b',,'a-b',,'axb',,'a/b''
	bkp4'exit''
	for'ia'step'2'until'20'rpeat's3''
	daprt'cr4'cr4'cr4''exit''
	end''











	>PROCEDURES TO TEST SUBSCRIPTS         <remark'

	enter'load'table'row'col''

sl'	prev';'table'0''
s2'	l';'j''
s3'	l';'k''
s4'	j'ix'l0'i+'k';'table'j'k''
	for'k'step'l'until'col'0'rpeat's4''
	for'j'step'l'until'row'0'rpeat's3''
	exit''
	end''

	enter'dispy'block'ro'colmn''

s2'	l';'m''
s3'	l';'n''
	daprt'cr4'tab6''
s4'	80l'iprt'block'm'n''
	for'n'step'l'until'colmn'0'rpeat's4''
	for'm'step'l'until'ro'0'rpeat's3''
	daprt'cr4'cr4''exit''
	end''

	enter'list'line''

sl'	prev';'last''
s2'	daprt'cr4''400'iprt'line'0''l';'k''
s3'	40l'iprt'line'k''
	for'k'step'l'until'last'rpeat's3''
	daprt'cr4'cr4'cr4''exit''
	end''


















	>TEST PROGRAM FOR ACT V STARTS HERE <      remark'

	>CONTROL PROGRAM             <remark'

	dim'matrx'2l''
sl'	call'i/o',,'trig',,'pell',,'arith''

s2'	if'5'call'load'arg'matrx',,'5',,'4''
s3'	call'dispy'arg'matrx',,'5',,'4''
s4'	if'20'call'list'arg'matrx''
s5'	stop'''